unit DetalheProduto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DB, DBTables;

type
  TFDetalheProduto = class(TForm)
    StringGrid1: TStringGrid;
    QProduto: TQuery;
    QProdutoPROD_CODIGO: TIntegerField;
    QProdutoPROD_DESCRICAOENT: TStringField;
    QProdutoPROD_DESCRICAOSAI: TStringField;
    QProdutoPROD_REFERENCIA: TStringField;
    QProdutoPROF_REF_FABRICANTE: TStringField;
    QProdutoPROD_UNIDSAIDA: TStringField;
    QProdutoPROD_MARCA: TStringField;
    QProdutoPROD_FABRICANTE: TIntegerField;
    QProdutoPROD_ATIVO: TStringField;
    QProdutoPROD_CODIGO_ANT: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure pesquisaProduto(Codigo : integer);
  end;

var
  FDetalheProduto: TFDetalheProduto;

implementation

uses UDMGeral, UGeral, UGestao;

{$R *.dfm}

procedure TFDetalheProduto.pesquisaProduto(Codigo: Integer);
const
  ctPesquisa =
    'SELECT'#10+
    '  PRODUTO.PROD_CODIGO,'#10+
    '  PRODUTO.PROD_DESCRICAOENT,'#10+
    '  PRODUTO.PROD_DESCRICAOSAI,'#10+
    '  PRODUTO.PROD_REFERENCIA,'#10+
    '  PRODUTO.PROF_REF_FABRICANTE,'#10+
    '  PRODUTO.PROD_UNIDSAIDA,'#10+
    '  PRODUTO.PROD_MARCA,'#10+
    '  PRODUTO.PROD_FABRICANTE,'#10+
    '  PRODUTO.PROD_ATIVO,'#10+
    '  PRODUTO.PROD_CODIGO_ANT'#10+
    'FROM'#10+
    '  PRODUTO'#10+
    'WHERE'#10+
    '  PRODUTO.PROD_CODIGO = %s';

var
  i : Integer;

begin


  QProduto.Close;
  QProduto.SQL.Clear;
  QProduto.SQL.Add(Format(ctPesquisa, [IntToStr(Codigo)]));
  QProduto.Open;

  if not(QProduto.IsEmpty) then
  begin

    StringGrid1.RowCount := QProduto.FieldCount;

    for i := 0 to QProduto.FieldCount - 1 do
    begin

      StringGrid1.Cells[0,i] := TCurrencyField(QProduto.Fields[i]).DisplayName;
      StringGrid1.Cells[1,i] := TCurrencyField(QProduto.Fields[i]).AsString;

    end;


  end else begin
    Close;
  end;


end;

end.
